Asymetrix Multimedia Toolbook 4.0 (CBT Edition)

home *** CD-ROM | disk | FTP | other *** search

/ Asymetrix Multimedia Toolbook 4.0 (CBT Edition) / Asymetric Multimedia Toolbook 4.0 (CBT Edition).iso / ctb40ap.z / SELTEXT.SPB (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1996-01-10 | 147KB | 2,693 lines

F 8 8 L *ClassTbl* *ClassEntry* *PTABLE* *WINDOWSEG* *ICONRESTAB* *ICONRESSEG* *ICONRES* Background *OBJTABLE* *IDTABLE* *NAMETAB* Rectangle Ellipse RoundedRectangle Polygon IrregularPolygon AngledLine Curve PaintObject Picture Group Stage Button Viewer ComboBox Field RecordField Hotword *RHOTWORD* *TbxBase* 8 bxBase* F 8 9 TB40HYP.SBK bxBase* FALSE wwwwww wz'www z'z"ww wwwwz wwwwww wwwwww wwwwww &File &Open Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear &Select All Shift+F9 selectall S&elect Page Shift+F12 selectpage F&ind... F5 search Re&place... replace &Author F3 author &Text &Character... F6 character &Paragraph... F7 paragraph Plai&n plain &Bold Ctrl+B I&talic Ctrl+T italic Under&line Ctrl+L underline Stri&keout Ctrl+K strikeout S&uper/subscript super/subscript &Normal script normalscript Su&bscript subscript Su&perscript superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right P&revious Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 index &Search for Help On... glossary &Tutorial tutorial &How To Use Help usinghelp &Keyboard keyboard C&ommands commands &About ToolBook... abouttoolbook addAnswer ASYM_WID_ANSWERS FALSE buttonclick startTime ASYM_WID_ANSWERS count enterPage startTime count startTime FALSE currentTime ASYM_Ticks count update UpdateThisPage update enterPage None specified false (None specified) feedback found ASYM_WID_DelayFeedback ASYM_GetString Disabled Enabled oAnsArray Immediate Feedback: %1 %2 Immediate Feedback x y 7wASYM_Container update ,"JdY propValue ,"JdY propValue theWeight ASYM_WID_ANSWERS propValue oansArray oansArray propValue leaveField ASYM_WID_ANSWERS oansArray propValue FixupWeights ClastSel leavePage ClastSel leaveBackground ClastSel ASYM_Reset ASYM_GetString DelayedFeedbackForMultiObjects d6fbArray All Incorrect HsupdateThisPage All Correct initFBArray Partially Correct ClastSel ClastSel enterPage background s_wid_targetObject P#ASYM_WID_SummaryFeedback initFBArray e6fbArray 7wASYM_Container propValue background Incorrect Correct Partially Correct e6fbArray 7wASYM_Container initFBArray d6fbArray s_wid_targetObject Q#ASYM_WID_SummaryFeedback propValue d6fbArray hitChar hitLine ClastSel ClastSel ASYM_itemOffset buttonDown d6fbArray lastSel toggleAnchor HsUpdateThisPage whatItem ClastSel g8blankThisPage buttonUp ClastSel enterBackground ,&H.& d6fbArray HsupdateThisPage e6fbArray updateCurrentAnswer FuupdateCurrentAnswer setTextFeedback FuupdateCurrentAnswer setMsgFeedback FuupdateCurrentAnswer setNavPage FuupdateCurrentAnswer this book GetString setNavBook keyChar scrolling rectangle fixScroll answer .zresponse answer text fixScroll text sample :0123456789 ASYM_trim FBNavBook FBNavPage field buttonDoubleClick ,&H.& ,&H.& ,&H.& ,&H.& ,&H.& fldNavPg fldNavBk FBNavBook false this book OKmsg OKdestPg FBPlayText FBNavPage OKtxt fldOsMsg OKdestBk ASYM_GetString OKclip fldTxt fldClip FBSendMsg FBPlayClip g8BlankThisPage UpdateThisPage FBNavBook FBPlayText FBNavPage FBSendMsg FBPlayClip blankThisPage FBNavBook FBNavPage field buttonDoubleClick ,&H.& ,&H.& ,&H.& ,&H.& ,&H.& fldNavPg fldNavBk FBNavBook false this book OKmsg OKdestPg FBPlayText FBNavPage OKtxt fldOsMsg OKdestBk ASYM_GetString OKclip fldTxt fldClip FBSendMsg FBPlayClip g8BlankThisPage UpdateThisPage FBNavBook FBPlayText FBNavPage FBSendMsg FBPlayClip blankThisPage ASYM_GetString ASYM_WID_SnapToWord modal addAnswer dlgNameFld dlgIsCorrect Add an Answer .zresponse s_wid_targetObject oplastItem subdialog fixupLine answer score answers dlgSampleFld ErrorNoText selSpec oansArray g8BlankThisPage ASYM_ShowDialog text sample nASYM_WID_SnapToWord oansArray dlgPg The widget contains no text. Unable to define answers. HsUpdateThisPage addAnswer ClastSel ASYM_Reset whatItem editAnswer answers buttonDoubleClick WdragLine singleSelect hitChar 9hitLine hitMax hitLine oansArray ClastSel ASYM_itemOffset buttonDown .'+ +F .'+ +F hitMax buttonStillDown .'+ +F .'+ +F 9hitLine lastSel KtoggleCorrect HsUpdateThisPage whatItem 9hitLine whatChar oansArray switch2DArrayRows oansArray propValue oldHitLine g8blankThisPage buttonUp YesNo oplastItem whatItem ASYM_MessageBox ASYM_GetString oansArray Delete answer "%1"? oansArray Delete HsUpdateThisPage g8BlankThisPage deleteAnswer ASYM_GetString score ASYM_WID_SnapToWord modal addAnswer Edit the Answer The widget contains no text. Unable to edit answers. dlgNameFld dlgIsCorrect .zresponse s_wid_targetObject oplastItem subdialog fixupLine answer /zresponse whatItem dlgSampleFld nASYM_WID_SnapToWord selSpec oansArray ASYM_ShowDialog text sample oansArray dlgPg g8BlankThisPage HsUpdateThisPage answers editAnswer ClastSel enterBackground multiSelect oansArray FALSE feedback delayed feedback fixAnsArray oplastItem lastItem fixUpLine SingleSelect oansArray HsUpdateThisPage fixupLine <else> pgName DASYM_ScrollListBoxToSelection general ClastSel g8BlankThisPage enterPage <else> oansArray fixAnsArray subscript answer ASYM_GetStandardString myColor <else> correct fixupLine ClastSel keydown >selectedLines KtoggleCorrect oansArray HsupdateThisPage answers ClastSel deleteAnswer keyup ClastSel leaveBackground ClastSel leavePage s_wid_targetObject ASYM_WID_AnsArray oansArray propValue s_wid_targetObject ASYM_WID_AnsArray propValue switch2DArrayRows 8fixupWeights whatItem oansArray autoAssignWeight oansArray toggleCorrect WidgetHasElseAnswer FALSE WidgetHasMultipleAnswers .'+ +F oAnsArray g8blankThisPage ASYM_reset ASYM_reset ,&H.& ASYM_GetString propsRead FALSE ASYM_WID_Answers The text of the field has changed. It may not be possible to match existing responses to it. s_wid_targetObject ~\WidgetHasElseAnswer ASYM_WID_AnsArray false readObjProps <else> VWidgetHasMultipleAnswers oAnsArray mxallowMultipleAnswer Text mismatch warning enterBackground propsRead readObjProps enterPage lxallowMultipleAnswer FALSE oansArray autoAssignWeight oansArray fixupWeights propType propType field,recordfield,button,group,combobox s_wid_targetWindow s_wid_targetObject propType s_wid_targetWindow s_wid_targetObject oType propName propsRead propValue oType propName readObjProps .'+ +F ,&H.& propType object propType field,recordfield,button,group,combobox propType s_wid_targetWindow s_wid_targetObject setString AnsArray oType propValue propName <self> afterEdit setString s_wid_targetObject propValue ASYM_WID_AnsArray s_wid_targetWindow ASYM_Reset oansArray ASYM_Q tbk_wid_name oAnsArray default oType propName propValue Cancel oansArray numCorrect oansArray numAnswers updateThisPage blankThisPage fixScroll enterPage .,;:!?()[]{}\/+-%*=^'" sepChars enterfield /zresponse ASYM_Reset -$, #> w, #> FilterCRs hotword response rtfend {\fonttbl {\f0 \fswiss MS Sans Serif;}} \tab s_asym_temp_ntxt s_wid_targetObject hwpre {\rtf1 \ansi \deff0 thead s_asym_temp_otxt hwpost {\ulnone \v HotwordStyle=BookDefault; }\ulnone \uldb \par \fonttbl \line \fi0 \li45 \ri45 \sl0 \tx720 \f0 \fs16 response FilterCRs updateHilite <Too many selections> FALSE ASYM_GetStandardString sepChars :hsepchars Too many selections nASYM_WID_SnapToWord updateHilite updateHilite leaveField ,"J(" OKKey OKKey keyup OKKey keydown OKKey keychar paste clear .'+ +F ShowCurrentTab Button buttonClick ShowCurrentTab _currentTab enterPage ShowCurrentTab _currentTab resizeTabs box black box grey hilite sized tabRow current Tab Edge _currentTab resizeTabs defBounds _currentTab ShowCurrentTab currentRow ArrangeRow 4ArrangeCheats resizeTabs V, #? V, #? \:resizeTabEdge defBounds tabEdge ArrangeRow cheat grey cheat white cheat black arrangeCheats white black resizeTabEdge buttonclick mode = FALSE = BLACK addAnswer "ASYM_WID_ANSWERS" notifyAfter startTime = NULL /) <= 1) count = ASYM_Ticks() currentTime = + 200 = LIGHTGRAY + 200 notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL FBArray[][] WORD i, j par1, par2 B"ASYM_WID_DelayFeedback"\ "feedback" ASYM_Container( T = ASYM_GetString("Enabled") found = ss = n = dimensions( j >= 3 j <= 12 i][j] <> None specified","( Disabled") = expandString( Immediate x y",\ : %1 %2"), propValue val = isType(real, < 0 x = -1 x = 1 B*100),100),-1) * x LOCAL ARRAY ansArray[][] theWeight = SelectedTextLines "ASYM_WID_ANSWERS" AnsArray[i][11] = notifyAfter FixupWeights ay[][] t][11] notifyBefore olastSel = oselectedTextLines AASYM_Reset LOCAL ARRAY fbArray[][] = ASYM_GetString("DelayedFeedbackForMultiObjects",\ "All Correct" &CRLF& " Incorrect" & Partially bg = ss = = ss; dimensions( ) = 0 initFBArray updateThisPage propValue SYSTEM {s_wid_targetObject -- -- " a dummy. o sets up the main used work fanswers bg = ASYM_Container( ss = = FALSE = ASYM_WID_SummaryFeedback bg = Hreference 1][1] = " 2][1] = " 3][1] = " /") = -- function returns a value; side effect, because you can't REAL weights {loc, isShift, isCtrl hitLine hitChar sel = > textlineCount( n = n = temp = n n = hitline ASYM_itemOffset( , sel) whatItem toggleAnchor blankThisPage UpdateThisPage updateCurrentAnswer i, newVal L = L][i] = setTextFeedback txt, option r 12, r 14, setMsgFeedback msgString r 15, setNavPage pgName, pgCaption setNavBook bookName 8", "") = "" x = 27 close fixScroll >+ textUnderflow txt = response sample" fld = "answer lockScreen btn = B"OK" <> enabled -- Make up Ri+1 Ri+1 ":0123456789" ASYM_trim( Z) > 32 & "..." "FBNavBook" B"FBNavPage" t <> UpdateThisPage selLines, AnsArray[][] Hreference, pg LOCAL txt,txtSpec, clipSpec, waitFlag, StageRef, OSMsg, DestPg, DestBk y; pg = BlankThisPage i = = ansArray[i][12] OKtxt = +tem j ][12] <> i = stageRef = OKclip = i = 3] <> 3] <> 3] <> i = OKmsg = ][15] <> i = OKdestPg = ][2] <> i = OKdestBk = ][4] <> -- visual update here oldLock = lockScreen fldTxt = "FBPlayText" fldClip = "FBPlayClip" fldOsMsg = "FBSendMsg" fldNavPg = fldNavBk = ASYM_GetString(" blankThisPage = lightGray "FBNavBook" B"FBNavPage" t <> UpdateThisPage selLines, AnsArray[][] Hreference, pg LOCAL txt,txtSpec, clipSpec, waitFlag, StageRef, OSMsg, DestPg, DestBk y; pg = BlankThisPage i = = ansArray[i][12] OKtxt = +tem j ][12] <> i = stageRef = OKclip = i = 3] <> 3] <> 3] <> i = OKmsg = ][15] <> i = OKdestPg = ][2] <> i = OKdestBk = ][4] <> -- visual update here oldLock = lockScreen fldTxt = "FBPlayText" fldClip = "FBPlayClip" fldOsMsg = "FBSendMsg" fldNavPg = fldNavBk = ASYM_GetString(" blankThisPage = lightGray -- This version allows rearranging answers Hdragging addAnswer SYSTEM s_wid_targetObject LOCAL ARRAY ansArray[][] dlgPg = dlgNameFld = dlgSampleFld = sample" ASYM_GetString("ErrorNoText",\ "The widget . Unable define B"ASYM_WID_SnapToWord" dlgIsCorrect = B"score" OK = ASYM_ShowDialog("subdialog"," "),"modal") isOpen close xNULL selSpec = response whatItem = dimensions( 6+1][i] = D][i] S][i] correct = ][11] = ][10] = ][1] = ][16] = -- -- -- graphic -- fixupLine selectedTextLines [lastItem UpdateThisPage BlankThisPage e= FALSE notifyBefore ASYM_Reset olastSel A = 1 editAnswer , isShift, isCtrl y[][] hitLine hitChar lockScreen odragLine isCorrectToggle = ( N > 0 I = 1) ofieldType "singleSelect" hitMax = ) - 1 > 0 ohitY = -- "multiSelect" sel = > textlineCount( temp = n hitline ASYM_itemOffset( , sel) oldY = loc = y = (y - 3) > 60 o= 43 whatChar ' action o= 43 oldHitLine = i ) - 1) switch2DArrayRows -- force updating everything opropValue = blankThisPage = 1 toggleCorrect deleteAnswer y[][], selectedtextlines ) <> down ASYM_MessageBox(expandString( Delete ""%1""?"),\ ][1])," ", ,"YesNo") x"yes" counter = 1 i <> J][j] = i][j] cnt = enabled = sel y[][] hotwords ][16] ][10] OK = ][11] = ][10] = ][1] = ][16] = y[][] pg = pgName = showself = <> "general" +<> "delayed feedback") = showSelf bg = ss = = ss; fixAnsArray; \ "SingleSelect" n = n = 0 n = 1 1][1] = "< i][10] = i][10] = fixUpLine n][1] <> "< n][1] = "< bg = selectedTextlines ASYM_ScrollListBoxToSelection y[][] 1][1] = "< a[][] Hreference, L = a[L][1] isElse = ( = ASYM_GetStandardString("< >","< = SPACE & a[L][10] = = bitmap myColor = updateThisPage oselectedLines, -- function returns a dummy value; -- used side effect, because you can't y[][] REAL weights ASYM_WID_AnsArray y[][] -- " sets up main work ss = a[][] r1, r2 DWORD i,d2 d2 = a[r1][i] a[r1][i] = a[r2][i] a[r2][i] = ][10] = ][10] = ][10] = ][10] ][10] ][11] = autoAssignWeight fixupWeights WidgetHasElseAnswer -- This pseudo property /controls whether -- there should be >" answer -- The < > option used only Question widgets -- that have -ended Woptions. -- Not fTRUE/FALSE questions, example WidgetHasMultipleAnswers enable multiple answers )the same ASYM_reset oAnsArray blankThisPage SYSTEM s_wid_targetObject, s_wid_targetWindow LOCAL r[][] allowMultipleAnswer = ASYM_WID_AnsArray dimensions( ) = 0 -- There was no ARRAY stored -- no defined. ansArray[1][1] = "< 0] = &1] = 0 n = n > 1 Yn][16] s_WID_TargetObject ASYM_GetString("Text mismatch warning",\ has changed. It may xbe possible @existing responses "ASYM_WID_Answers" pg = propsRead pg = readObjProps pg fixupWeights autoSpread REAL TotalPositive WORD i, n, nCorrect CorrectList, IncorrectList autoAssignWeight = ( n = [i][11] istype( [i][10] = [i][10] = InCorrectList n > 0 totalPositive > 0 theWeight = 1 / k <> ][11] = _(1 / ][11] = ][11] * ][11] = ][11])) ][11] = ][11],0) -- Get settings -- If a a "propValue" -- use value -- dialog {. Checked checkboxes can be %such. = NULL bg = y; pg = objs = getObjectList(pg," ,combobox", propType = oType = propName = " && #&& " " && pg = -- Where they differ -- If a {. Unactivated FlushMessageQueue() bg = )][16] = pg = t(pg," " && " && QUOTE proptype = " nam = h(propvalue) setString = " " && " && && " " && & obj && " && " && && " " && " && " && && " " && tbk_wid_name = "ASYM_Q" ASYM_Reset "afterEdit" close = default Cancel numCorrect [i][10] numAnswers updateThisPage selLines, Hreference -- handled Hindividual notifyBefore fixScroll sepChars ".,;:!?()[]{}\/+-%*=^'"" \ASYM_Reset oresponse -- Returns a CRLF separated list offsets/ pairs ZSTACK hws = getObjectList( - <> & textOffset & FilterCRs( -- Creates hotwords described ]same %returned SYSTEM s_wid_targetObject asym_temp_otxt, s_asym_temp_ntxt LOCAL rtfheader fld = -- Try construct a compatible s_asym_temp_otxt = richtext p = ~("\fonttbl", nesting = 0 cnt = p > 0 cp < c = thead = ,"{\rtf1 \ansi \deff0"\ && "{\ {\f0 \fswiss MS Sans Serif;}}" p = cp > 0 "\par " p = & "\ql"\ && "\fi0 \li45 \ri45 \sl0 \tx720 \f0 \fs16 " hwpre = "\uldb " hwpost = "{\ulnone \v HotwordStyle=BookDefault; }\ rtfend = "}" tcnt = p0 = 1 txtL = p = isType(REAL,p) p > 1 p0 = p + p = cp > 0 = "\ p = p = ~(LF, cp > 0 = "\ p = ~(LF, p = cp > 0 = "\ p = -- DEBUG DWORD i -- replace CRs Vthat won't interfere fstorage s = "~" notifyAfter selectedTextState <> updateHilite R <> wls = lockScreen = sepchars() -- exactly matches a -- Fdelete hws = p = pEnd = p + hw) - 1 p1 = p p2 = e= wls oASYM_WID_SnapToWord <> FALSE cp1 < c <= cp1 > 1 Rp1-1 c <= cp2 > 1 c <= cp2 < Rp2+1 c <= (hws) > 49 --** MAGIC LIMIT = 50 ASYM_GetStandardString("<Too many selections>",\ p = hw) - 1 (p1 >= p p1 <= (p2 >= p p2 <= (p >= p1 p <= p2) >= p1 <= p2) mmYield ss= hw = selectedHotwords hw <> hw = e= wls -- Disable editing OKKey x ((x >= 33 x <= 40) down)) alwaysReader ss= buttonClick n = lockScreen ShowCurrentTab (n) notifyBefore o_currentTab /+ 1) sized sysPageUnitsPerPixel x1 = x1 - x1 x2 = x2 - x2 y1 = y1 - y1 y2 = y2 - y2 y = resizeTabs(1,x1,y1,x2,y2,xp,yp, m"hilite" = x1,y2,x1,y,x2-xp,y m"box grey" = x2-xp,y,x2-xp,y2-yp,x1+xp,y2-yp = x2,y,x2,y2,x1+xp,y2 c = c = 1 9" && c) = defBounds y; n = 1; n <= 3 tabRow = 1 btn = 9" && n) H0,-(yp * 2) Hxp*2 Hxp*2 Hyp*3 grp = Edge" newActiveRow,x1,y1,x2,y2,xp,yp,snap btnH = 315 -- magic Hxp*2 Hxp*2 currentRow = o_row toff = 3 cols = 2 ArrangeRow , x1,y1,x2,y2,xp,yp, y1 = y1 + ArrangeCheats x1,y1,x2,y2,xp,yp , x1,y1,x2,y2,xp,yp, , x1,y1,x2,y2,xp,yp, y1 = y1 + 1,x2,y2,xp,yp , x1,y1,x2,y2,xp,yp, y1 + , x1,y1,x2,y2,xp,yp, colSize = (x2-x1-xp*( -1)) / xoff = (colsize * (i-1)) + xp * (i-1) x1 + x1 + W, y1, , y1+ 9" && i+ resizeTabEdge ("tabEdge" && i+ arrangeCheats x1,y1,x2,y2,xp,yp yp2 = yp*2 U"cheat = x1,y1,x1,y1+ = x2,y1,x2,y1+ = x2-xp,y1,x2-xp,y1+ obj, bnds, x1 = x1 - x1 x2 = x2 - x2 y1 = y1 - y1 y2 = y2 - y2 xp2 = xp*2; = x2- $,y1, x1+ .,y1, x1,y1+yp2, x1,y2 = x2-xp,y1+ $x2-xp,y2 = x2-xp,y1+yp,x2,y1+ V+yp,x2,y2 default button 6 . . author skrefFocus "8ASYM_PostMsg buttonClick refBtn keyDown Cancel cancelBtn defBtn skrefFocus ASYM_IsWin31 enterPage skrefFocus setDefButton refBtn wordwrap button field skrefFocus pushbutton cancelBtn defBtn rkrefFocus notifybefore notifyBefore x = 13 orefBtn enabled ASYM_PostMsg "buttonClick", orefFocus ocancelBtn = B"Cancel" odefBtn = B"OK" ASYM_IsWin31() u= "pushbutton" setDefButton btn wrd1 = NULL OK = ( fieldType wordwrap) targetWindow = u = sysPageUnitsPerPixel b = b - x, b - y, b + x, b + y answers Mike Florence info_LastSavedBy 8/26/94 2:47:53 PM 10/19/95 1:59:44 PM Fill-In the Blank - Question Properties Mike Florence 1/11/95 5:45:51 PM MS Sans Serif <BookPath> info_LastSaved Serif 10/31/94 10:10:37 AM ASYM_AuthorResetPrompt INFO_Title Sans Serif Sans Serif Sans Serif Mike Florence Mike Florence 10/21/94 1:51:23 PM /13/94 2:01:55 PM ke Florence Mike Florence Claude Ostyn 10/4/95 12:42:30 PM Claude Ostyn 10/13/95 11:21:41 PM de Ostyn :HDMEDIAPATH Arial Sans Serif Sans Serif MS Sans Serif SanSerif frameUpdate lastUnits enterpage frameUpdate sysPageUnitsPerPixel <> lastUnits e = TRUE frameUpdate e= FALSE Group id 66 of Page id 1 of Book "D:\HOOKWORK\WIDGETS\MULTWID.TBK" Sans Serif Sans Serif Claude Ostyn Claude Ostyn 10/12/95 5:34:57 PM Select Text - Question Properties MS Sans Serif 10/15/95 2:36:06 AM Asymetrix Corporation 12/1/95 4:01:10 PM 1/4/96 9:09:20 PM 11/1/95 5:04:48 PM s_wid_targetWindow tb40dlg.dll default enterBook 4s_wid_targetObject, s_wid_targetWindow X"tb40dlg.dll" sortlist( B = NULL N = ASYM_WorkWindow() = default _ASYM_HyperPath YM_LogAppend YM_LogEncrypt <auto> @80*x< 10/13/95 7:41:34 PM 10/19/95 4:48:51 PM .'+ +F sortlist ASYM_WorkWindow s_wid_targetObject s_wid_targetWindow tb40dlg.dll enterBook of background enterField 4s_wid_targetObject, s_wid_targetWindow X"tb40dlg.dll" sortlist( B = NULL N = ASYM_WorkWindow() 1/4/96 9:09:34 PM ialog Feedback Text Page "clipChooser" Select Text - Question Properties rties Add an Answer Page "general" ltiple Choice Question Properties SubDialog it the name d an Answer Page "AddAnswer" Page id 13 Multiple Choice #1 Question Properties general *(+b+V8V8 15,15 lastUnits false propsRead 3dField tbk_wid_type propValue propValue ASYM_Reset keyChar propValue notifyBefore ASYM_Reset ) > 32 string propType PLAIN ASYM_Reset notifyBefore ASYM_Reset = PLAIN A "try" is counted every time delayed feedback or score is provided. This option is ignored if "Cannot change responses" is checked...ed.ed" option is enabled.bled. TimeMax Maximum time (secs): TriesMax Maximum tries: Question Name: Automatically Reset Question:::::: (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Limits group caption Limits on interaction ASYM_WID_TimeMax ASYM_WID_TimeMax propValue maxFld ASYM_WID_TimeMax TimeMax propValue maxFld ASYM_WID_TimeMax TimeMax buttonclick propValue val = "ASYM_WID_TimeMax" isType(real, B*1000) mode = > 0)) maxFld = enabled i/1000)) buttonclick logical propType Limit time 3dField tbk_wid_type ASYM_WID_TimeMax ASYM_WID_TriesMax ASYM_WID_TriesMax propValue maxFld TriesMax ASYM_WID_TriesMax propValue maxFld TriesMax ASYM_WID_TriesMax buttonclick propValue val = "ASYM_WID_TriesMax" isType(real, mode = > 0)) maxFld = enabled buttonclick logical propType Limit tries 3dField tbk_wid_type ASYM_WID_TriesMax ASYM_Reset notifyBefore ASYM_Reset sized 3dField tbk_wid_type ASYM_WID_AutoReset choice ,enterPage,leavePage,always propValue ASYM_GetString When leaving the page Always enterPage choice When entering the page leavePage Never always propValue choice selectchange propValue ochoice ,always" = ASYM_GetString("Never") When entering the !leaving bAlways") odropDownItems = = TRUE oselectedItem = selectchange propType choice Neverseaving the pagee Never When entering the page When leaving the page Always Possible answers update UpdateThisPage oAnsArray update enterPage Possible answers: %1 Correct: %2 ASYM_GetString Possible x correct y update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL *WORD i, n, corr n = dimensions( ansArray[i][10] = TRUE = expandString(ASYM_GetString("Possible x correct y",\ answers: %1 Correct: %2"),\ n, Possible answers: 1 Correct: 000swer(s): 0 Score it update UpdateThisPage update enterPage ASYM_GetString Score this question x scoring Score this question: %1 ASYM_WID_IsScored 7wASYM_Container update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore B"ASYM_WID_IsScored"\ "scoring" ASYM_Container( ASYM_GetString("Yes") = expandString( question x",\ : %1"), Score this question: NosCorrect: 0swer(s): 0 Imm Fb Immediate Feedback: Enabled (None specified) Del Fb update UpdateThisPage update enterPage Delayed feedback: %1 d6FBArray None specified false Summary feedback x found ASYM_GetString Specified update notifyAfter UpdateThisPage selLines, FBArray[][] Hreference update notifyBefore LOCAL WORD i, j found = ss = n = dimensions( j >= 3 j <= 12 i][j] <> ASYM_GetString("Specified") !None specified") = expandString( Jummary feedback x",\ "Delayed : %1"), Delayed feedback: None specified 0swer(s): 0 ASYM_Reset enterPage UpdateThisPage Widget Editor Group id 66 of Page id 1 targetObj Group id 17 of Page id 0 targetObject 94080216070211604290110 ASYM_TpID autoAssignWeight FALSE AllowMultipleAnswer Correct Incorrect Partially Correct fbArray defaultButton Button id 167 of Background id 0 defBtn needFix Button id 167 of Background id 0 refBtn Button id 166 of Background id 0 cancelBtn buttonClick buttonClick default cancel buttonclick buttonclick close escape Cancel delayed feedback feedback %ASYM_WinHelp answers scoring general buttonClick keyDown buttonClick pg = pg = "general" ( = 1000 pg = "answers" G = 1100 pg = "scoring" f = 1110 pg = "feedback" = 1120 pg = "delayed = 1130 <> NULL ASYM_WinHelp( notifyBefore FiveTabFolder _currentTab cheat grey cheat black cheat white hilite tabEdge 1 white black tabEdge 2 white black tabEdge 3 white black tabEdge 4 white black tabEdge 5 white black Current Tab Edge white black sized sized "mask" sysPageUnitsPerPixel x1 = x2 = y1 = y2 = xp2 = xp*2; yp2 = yp*2 = x2-xp,y1, x1+ 5,y1, x1,y1+ 6, x1,y2 U"grey" = x2-xp,y1+ _,x2-xp,y2 = x2-xp,y1+yp,x2,y1+ +yp,x2,y2 white black Tab 1 135,390,1975,705 defBounds &1 - General Tab 2 1990,390,3830,705 defBounds &2 - Answers Tab 3 3845,390,5685,705 defBounds &3 - Scoring Tab 4 135,75,2902.5,390 defBounds &4 - Immediate Feedback Tab 5 2917.5,75,5685,390 defBounds &5 - Delayed Feedback box grey box black 3dField tbk_wid_type 360,1740 defpos ASYM_WID_ANSWERS array propType numCorrect numAnswers selectedItems hitMax hitLine selectedLines IsScored keyDown enterPage author ASYM_Reset enterBackground leaveBackground leavePage Answers isCorrect delete <else> propValue UpdateThisPage UpdateThisPage selLines, AnsArray[][] Hreference LOCAL txt,txtSpec, clipSpec, waitFlag, StageRef i = propValue B"isCorrect" = ansArray[i][10] = TRUE enabled B"delete" = 15,15 lastUnits FALSE dirtyBit false propsRead IsCorrect Incorrect Correct ASYM_GetString propValue ASYM_WID_ANSWERS KtoggleCorrect propValue buttonClick propValue propValue ASYM_Reset propValue ASYM_GetString("Correct") Incorrect") buttonClick toggleCorrect "ASYM_WID_ANSWERS" notifyBefore ASYM_Reset Correct count Add... ASYM_WID_ANSWERS EditAnswer buttonclick buttonclick EditAnswer "ASYM_WID_ANSWERS" Edit... Delete ASYM_WID_ANSWERS deleteAnswer buttonclick buttonclick deleteAnswer "ASYM_WID_ANSWERS" Delete ASYM_WID_AutoLockAnswer propValue propValue propValue propType Cannot change response (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Caption Possible answers PLAIN ASYM_Reset notifyBefore ASYM_Reset = PLAIN The reader will be able to select text in this widget. Any action that causes the text selection to change will trigger the response evaluation.Tab or Enter, will trigger the response evaluation. Possible answers update UpdateThisPage oAnsArray update enterPage Possible answers: %1 Correct: %2 ASYM_GetString Possible x correct y update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL *WORD i, n, corr n = dimensions( ansArray[i][10] = TRUE = expandString(ASYM_GetString("Possible x correct y",\ answers: %1 Correct: %2"),\ n, Possible answers: 2 Correct: 100swer(s): 0 ASYM_WID_SnapToWord update buttonClick addanswer nASYM_WID_SnapToWord Text Sample 7wASYM_Container update update propValue propValue buttonClick update ASYM_WID_SnapToWord "Text Sample" "addanswer"\ ASYM_Container( 8") = propValue propType Snap selection to word boundaries explain cannot change PLAIN ASYM_Reset notifyBefore ASYM_Reset = PLAIN The user will be able to make only single selections. Use this option only if the possible answers do not include multiple selections. ASYM_Reset enterPage enterPage UpdateThisPage Scoring propValue answerWeight UpdateThisPage UpdateThisPage selLines, AnsArray[][] Hreference i = ansArray[i][11] propValue "answerWeight" = FALSE dirtyBit 15,15 lastUnits false propsRead ASYM_WID_IsScored propValue MaxScore ASYM_WID_MaxScore ASYM_WID_RoundScore MinScore ASYM_WID_MinScore 7wASYM_Container propValue propValue buttonclick propValue pg = ASYM_Container( enabled "ASYM_WID_MaxScore" pg = pg = "ASYM_WID_MinScore" pg = pg = "ASYM_WID_RoundScore" pg = "scoring options box" pg = buttonclick logical propType Score this question maxScore Highest possible score: minScore Lowest possible score: Score weight of selected answer:r:: 3dField tbk_wid_type AnswerWeight propType ASYM_WID_AutoScoreWeight background 6/ASYMA_GetAuthorIni Widget Edit AutoWeight autoAssignWeight 7wASYM_Container propValue propValue n9ASYMA_SetAuthorIni Widget Edit AutoWeight background 8FixupWeights autoAssignWeight propValue 7wASYM_Container buttonClick background autoAssignWeight propValue 7wASYM_Container enterPage propValue = ASYMA_GetAuthorIni("Widget Edit","AutoWeight") autoAssignWeight ASYM_Container( /") = notifyBefore OK ASYMA_SetAuthorIni(" buttonClick FixupWeights Boolean propType Automatic 3dField tbk_wid_type ASYM_WID_MinScore RoundToMin ASYM_ExpandString Report the lowest score: %1 ASYM_GetString 7wASYM_Container propValue propValue propValue propValue leaveField propValue xisType(real, B"RoundToMin" ASYM_Container( ")= \ ASYM_ExpandString(ASYM_GetString(\ "Report the lowest score: %1"),\ propType 3dField tbk_wid_type ASYM_WID_MaxScore ASYM_ExpandString Report the highest score: %1 ASYM_GetString RoundToMax 7wASYM_Container propValue propValue propValue propValue leaveField propValue xisType(real, B"RoundToMax" ASYM_Container( ")= \ ASYM_ExpandString(ASYM_GetString(\ "Report the highest score: %1"),\ propType ASYM_WID_RoundScore ,&H.& Button roundToMin noRounding roundToMax propValue ,&H.& Button noRounding propValue propValue "roundToMax" "roundToMin" "noRounding" objs = BUTTON Zdefault STRING propType RoundScore Prompt For a partially correct response: NoRounding Use the weight assigned to each possible answer to xtra 1 compute an exact score RoundToMin Report the lowest score: 0 RoundToMax Report the highest score: 1 (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Caption Possible answers Possible answers update UpdateThisPage oAnsArray update enterPage Possible answers: %1 ASYM_GetString Correct answers: %2 Possible x correct y update notifyAfter UpdateThisPage selLines, AnsArray[][] Hreference update notifyBefore LOCAL *WORD i, n, corr n = dimensions( ansArray[i][10] = TRUE = expandString(ASYM_GetString("Possible x correct y",\ answers: %1" & CRLF & "Correct 2"),\ n, Possible answers: 1 Correct answers: 0s): 0 enterPage ASYM_reset 8\,Ps FixupWeights UpdateThisPage false feedback 15,15 lastUnits dirtyBit false propsRead showImmediate IsImmediateFB false IsDetailedFB ASYM_WID_DelayFeedback propValue update propValue update enterPage update buttonClick ASYM_WID_Answers Immediate Feedback Options 7wASYM_Container update ASYM_WID_Answers leavePage false propValue asym_reset propValue update notifyBefore buttonClick isEnable = myPg = ASYM_Container( enabled "Immediate Feedback Options" "ASYM_WID_Answers" notifyAfter asym_reset propType Enable feedback at time of response Immediate Feedback Options (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Possible answers group Possible answers All correct ASYM_WID_ANSWERS HsupdateThisPage oansArray buttonClick buttonClick LOCAL ARRAY ansArray[][] theList bg = ss = dimensions( zi][10] TRUE -- i][11] > 0 selectedTextLines "ASYM_WID_ANSWERS" bg = updateThisPage Select All &Correct All incorrect ASYM_WID_ANSWERS HsupdateThisPage oansArray buttonClick buttonClick LOCAL ARRAY ansArray[][] theList bg = ss = dimensions( zi][10] <> TRUE selectedTextLines "ASYM_WID_ANSWERS" bg = updateThisPage Select All &Incorrect fbOSprompt Send OpenScript: fbtextprompt Feedback text: fbpgprompt Go to page: fbbkprompt Of book: fbclipprompt Play media clip: FBNavBook propType FBPlayClip FBSendMsg FBNavPage FBPlayText EditFeedbackButtons ansFld d6fbArray ASYM_WID_ANSWERS false s_wid_targetObject NavPage Feedback selLines OSMsg HsUpdateThisPage ASYM_WID_SummaryFeedbackList _ASYMA_EditFeedback oansArray oansArray e6fbArray hyperlink buttonClick buttonClick loc SYSTEM s_wid_targetObject LOCAL ansArray[][] "Feedback" ansFld = "ASYM_WID_ANSWERS" fb = "ASYM_WID_SummaryFeedbackList" = fbArray fb = selLines = selectedtextlines NULL c"clip" c"Msg" "OSMsg" c"NavPage" "hyperlink" _ASYMA_EditFeedback( UpdateThisPage FBPlayClip Click to select file helpText exclude FBPlayText Click to select file helpText exclude FBSendMsg Click to select file helpText exclude FBNavPage Click to select file helpText exclude asym_reset enterPage leavePage false Delayed Feedback false propsRead FALSE IsDetailedFB 3dField tbk_wid_type ASYM_WID_SummaryFeedbackList array propType numCorrect numAnswers selectedItems useObjectType All Correct All Incorrect Partially Correct Feedback to execute on request when the responses are...e, and the responses are...ay its fPlaeedback, and the responses are... one or more): (unnamed) ASYM_reset notifyBefore ASYM_reset sized 3DGroupBox tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Shadow Highlight Question feedback group Caption Question feedback fbOSprompt Send OpenScript: fbtextprompt Feedback text: fbpgprompt Go to page: fbbkprompt Of book: fbclipprompt Play media clip: FBNavBook propType FBPlayClip FBSendMsg FBNavPage FBPlayText EditFeedbackButtons ansFld d6fbArray ASYM_WID_ANSWERS false s_wid_targetObject NavPage Feedback selLines OSMsg HsUpdateThisPage ASYM_WID_SummaryFeedbackList _ASYMA_EditFeedback oansArray oansArray e6fbArray hyperlink buttonClick buttonClick loc SYSTEM s_wid_targetObject LOCAL ansArray[][] "Feedback" ansFld = "ASYM_WID_ANSWERS" fb = "ASYM_WID_SummaryFeedbackList" = fbArray fb = selLines = selectedtextlines NULL c"clip" c"Msg" "OSMsg" c"NavPage" "hyperlink" _ASYMA_EditFeedback( UpdateThisPage FBPlayClip Click to select file helpText exclude FBPlayText Click to select file helpText exclude FBSendMsg Click to select file helpText exclude FBNavPage Click to select file helpText exclude leavePage leaveBackground ASYM_Reset enterPage enterBackground false addAnswer 15,15 lastUnits propsRead defaultButton Button id 61 of Page id 24 defBtn needFix Button id 62 of Page id 24 refBtn Button id 62 of Page id 24 cancelBtn Offset Text d: answer text Select the chunk(s) of text that corresponds to this answer: Name for this answer: buttonClick buttonClick default cancel buttonClick buttonClick close escape Cancel addAnswer FBPlayText %ASYM_WinHelp FBSendMsg buttonclick keyDown buttonclick = "FBPlayText" ASYM_WinHelp(1030,"") = "FBSendMsg" /40,"") = "addAnswer" T50,"") notifyBefore (unnamed) sized sized 3dField tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate answer enterField (unnamed) sized sized 3dField tbk_wid_type Automatically repairs itself when sized. ASYM_WID_Description Asymetrix ASYM_WID_Author 95-1-25 ASYM_WID_CreateDate Text sample ASYM_WID_SnapToWord This is a simple test text sample buttonClick buttonClick fld = sample" lockScreen R(textOffset Clear score 9touched update buttonClick update firstIdle Incorrect Correct ASYM_GetString update buttonClick otouched update notifyBefore firstIdle ASYM_GetString("Correct") Incorrect") touched Correct enterPage keyDown author firstIdle ASYM_Reset paste clear dialogs CANCEL button "CANCEL" of field single button "OK" of syscuror default keyDown -- generic dialog handler -- test Bexits so, does action isObject(" B""CANCEL"" buttonclick syscuror = default n = keyEnter B""OK"" = NULL "single" fieldType B"OK" 94080216150514626234020 ASYM_TpID Delayed Feedback Answers feedback general CBT_WID_DragImage Scoring addAnswer Widget Editor dialogs addAnswer